begin
new
? inident list-dvoupatr
 ! sat 50
new
? type grass
? subtype 4
 ! add 25 4080F0
 ! hue -10
new
? type grass
? subtype 1
 ! add 10 00FFFF
new
? type grass
? subtype 7
 ! add 10 0000FF
end
